perm filename STACK.SEX[HAL,HE] blob sn#241878 filedate 1976-10-13 generic text, type T, neo UTF8
(PR
  (BL
    (FVAR BLK1 BLK1_GRASP BLK1_TOP BLK2 BLK2_GRASP FINPLACE)
    (SVAR GRASPHEIGHT BLK1LENGTH BLK2LENGTH BLK1WIDTH BLK2WIDTH BLK1HEIGHT)
    (RVAR STAND)
    (AS STAND
      (AXW_ROTN YHAT  180.0000    )
    )
    (AS BLK1WIDTH
       1.500000    
    )
    (AS BLK2WIDTH
       1.500000    
    )
    (AS BLK1LENGTH
       2.500000    
    )
    (AS BLK2LENGTH
       2.500000    
    )
    (AS BLK1HEIGHT
       2.000000    
    )
    (AS GRASPHEIGHT
       .7500000    
    )
    (AS BLK1
      (FMAKE NILROTN (VMAKE  10.00000      30.00000      .0000000    ))
    )
    (AS BLK2
      (FMAKE NILROTN (VMAKE  6.000000      30.00000      .0000000    ))
    )
    (AS FINPLACE
      (FMAKE NILROTN (VMAKE  8.000000      40.00000      .0000000    ))
    )
    (TVAR _T1)
    (AFFIX BLK1_GRASP BLK1 _T1
      (TMAKE STAND (VMAKE (SDIV BLK1LENGTH  2.000000    ) (SDIV BLK1WIDTH  2.000000 
   ) GRASPHEIGHT))
      RIGIDLY)
    (TVAR _T2)
    (AFFIX BLK1_TOP BLK1 _T2
      (TMAKE NILROTN (VMAKE  .0000000      .0000000     BLK1HEIGHT))
      RIGIDLY)
    (TVAR _T3)
    (AFFIX BLK2_GRASP BLK2 _T3
      (TMAKE STAND (VMAKE (SDIV BLK2LENGTH  2.000000    ) (SDIV BLK2WIDTH  2.000000 
   ) GRASPHEIGHT))
      RIGIDLY)
    (MO BARM
      BPARK
      (DURATION = 
         3.000000    
      )
    )
    (MO BHAND
       3.800000    
    )
    (MO BARM
      BLK1_GRASP
    )
    (MO BHAND
      BLK1WIDTH
    )
    (TVAR _T4)
    (AFFIX BLK1 BARM _T4 () RIGIDLY)
    (MO BLK1
      FINPLACE
    )
    (MO BHAND
       3.800000    
    )
    (UNFIX BLK1 BARM)
    (MO BARM
      BLK2_GRASP
    )
    (MO BHAND
      BLK2WIDTH
    )
    (TVAR _T5)
    (AFFIX BLK2 BARM _T5 () RIGIDLY)
    (MO BLK2
      BLK1_TOP
    )
    (MO BHAND
       3.800000    
    )
    (UNFIX BLK2 BARM)
    (MO BARM
      BPARK
    )
    (PRINT 
      "ALL DONE"
    )
  )
)